home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
XFILE.INT
< prev
next >
Wrap
Text File
|
1992-09-06
|
4KB
|
85 lines
{*****************************************************************************}
{ }
{ filename : XFILE.PAS }
{ author : Stefan Boether / Compuserve Id : 100023,275 }
{ FidoNet : 2:242/200 }
{ FidoNet : 2:243/91 }
{ Internet: 100023.275@CompuServe.COM }
{ Maus-Net: Stefan Böther @ HRO }
{ system : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1 }
{ changes : }
{ when what who }
{ --------------------------------------------------------------------------- }
{*****************************************************************************}
{ Description : File access Objects )
{*****************************************************************************}
{Header-End}
unit XFile;
{$I-,X+,V-,D-}
{$IFNDEF Windows} {$O+} {$ENDIF}
interface
USES {$IFDEF Windows }
WinDos,
WObjects,
DPMI,
OEtc,
{$ELSE}
Objects,
{$ENDIF}
DOS;
TYPE PFile = ^TFile;
TFile = object(TObject)
FileName : PathStr;
F : File;
Buffer : TextBuf;
Status : Integer;
constructor Init(AName:PathStr);
destructor Done; virtual;
function Error(Code:Integer):boolean; virtual;
function Open:Boolean; virtual;
function Create:Boolean; virtual;
procedure Close; virtual;
function Exists:Boolean; virtual;
procedure Delete; virtual;
procedure Seek ( Pos:Longint ); virtual;
procedure Write( var Buf; Count:Word ); virtual;
procedure Read ( var Buf; Count:Word ); virtual;
function ReplaceExt(NExt: ExtStr; Force:Boolean):PathStr; virtual;
procedure Rename(NewName:PathStr); virtual;
procedure Cut(At:Longint); virtual;
function IsOpen:boolean; virtual;
function IsConsole:Boolean; virtual;
function GetAttr:Word; virtual;
procedure SetAttr(NewAttr:Word); virtual;
function GetHandle:Word; virtual;
function GetDate:Longint; virtual;
function GetLength:Longint; virtual;
function GetDir:DirStr; virtual;
function GetName:NameStr; virtual;
function GetExt:ExtStr; virtual;
function GetNameExt:PathStr; virtual;
function GetDirName:PathStr; virtual;
function GetPath:PathStr; virtual;
function GetPString:PString; virtual;
end;
PTextFile = ^TTextFile;
TTextFile = object( TFile )
FText : ^Text;
constructor Init(AName:PathStr);
function Open:Boolean; virtual;
function Create:Boolean; virtual;
procedure Close; virtual;
function Eof:Boolean; virtual;
end;